home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1100.dms / q1100.adf / TeleBASE / rexx / calls.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-10  |  374b  |  26 lines
  1. /* Test Telebase */
  2.  
  3. address tbase
  4.  
  5. START
  6. GETVAR
  7.  
  8. callnum = 1
  9. sendvar
  10.  
  11. do forever
  12.   GetVar
  13.   say ''
  14.   say 'C_NAME is ' C_NAME
  15.   say 'C_DATA is ' C_DATA
  16.   say 'C_TIME is ' C_TIME  
  17.   say 'C_DATE is ' C_DATE
  18.   say 'C_RAW is '  C_RAW
  19.   say 'C_NUM is '  C_NUM
  20.   say 'NumCalls is ' numcalls
  21.   say 'Caller number is ' callnum
  22.   if callnum = numcalls then 
  23.     exit
  24.   nextcall
  25. END
  26.